home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MOBICLIC_MENUS.CST / 00258_Script_GESTION_BTON_PAUSE < prev    next >
Text File  |  2002-09-19  |  787b  |  34 lines
  1. property pdizsprite,pdizspriteNo, pdizguyname
  2. global gpiste_Pause, gpiste_Video, gpiste_GO, gL_EtatBtons
  3. -----------------------------
  4. on beginSprite me
  5.   pdizspriteNo = me.spriteNum
  6.   pdizsprite = sprite(pdizspriteNo)
  7.   pdizguyname = pdizsprite.member.name
  8.   gpiste_Pause = pdizspriteNo
  9. end
  10. ------------------
  11. on mouseEnter
  12.   cursor 280
  13.   pdizsprite.member = pdizguyname&"_R"
  14.   updateStage
  15. end
  16. -----------------
  17. on mouseLeave
  18.   cursor -1
  19.   case(gL_EtatBtons[2]) of
  20.     0:
  21.       puppetSprite pdizspriteNo, FALSE
  22.     1:
  23.       nothing
  24.   end case
  25.   updateStage
  26.   -------------
  27. on mouseUp
  28.   gL_EtatBtons =  [0,1,0, 0]
  29.   pdizsprite.member = pdizguyname&"_R"
  30.   puppetSprite gpiste_Go, FALSE
  31.   sprite(gpiste_Video).movieRate = 0
  32.   updateStage
  33. end
  34. -------------